home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / SHARED.DIR / 01003_Script_sbtx < prev    next >
Text File  |  1995-11-21  |  1KB  |  53 lines
  1. -- standard button trios
  2. --property myNormal, myRollover, myPressed, myChannel, myScript, ancestor
  3.  
  4. --on birth me, no, sp, ro, pr, sc
  5. --  set ancestor to birth(script "sb",sp,sc)
  6. --  set myNormal to (the number of cast no)
  7. --  set myRollover to (the number of cast ro)
  8. --  set myPressed to (the number of cast pr)
  9. --  set myScript to sc
  10. --  set myChannel to integer(sp)
  11. --  return me
  12. --end
  13.  
  14. --change appearance
  15. on sbtrollo myChannel, myRollover
  16.   global gsbtnormal 
  17.   
  18.   if the castNum of sprite myChannel = myRollOver then exit
  19.   
  20.   set gsbtnormal = the castNum of sprite myChannel
  21.   
  22.   --put ">>>my rollover cast 1003 " & myChannel && myRollover
  23.   puppetSprite myChannel,TRUE
  24.   set the castNum of sprite myChannel to myRollover
  25.   updateStage
  26.   --puppetSprite myChannel, false
  27. end
  28.  
  29. on sbtpress theLine
  30.   set myChannel = integer(item 1 of theLine)
  31.   set myPressed = integer(item 6 of theLine)
  32.   puppetSprite myChannel,TRUE
  33.   set the castNum of sprite myChannel to myPressed
  34.   updateStage
  35.   puppetSprite myChannel, false
  36. end
  37.  
  38. on sbtnorm theLine
  39.   global gsbtnormal
  40.   
  41.   --put theLine
  42.   set myChannel = integer(item 4 of theLine)
  43.   set the castNum of sprite myChannel = gsbtnormal
  44.   
  45.   puppetSprite myChannel, false
  46.   updateStage
  47. end
  48.  
  49. on sbtdoScript theLine
  50.   set command = item 7 of theLine
  51.   do command
  52. end  
  53.